home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / demo / bladeDemo.lha / Install < prev    next >
Text File  |  1997-08-17  |  3KB  |  208 lines
  1. ; Blade installer script v1.0
  2.  
  3. ; Initialise the variables
  4.  
  5. (set #destmess "Where do you want Blade installed ? A directory will be created there.")
  6. (set #copying "Copying files")
  7. (set #unpacking "Unpacking Archives")
  8. (set #insert2 "\n\n\n\n\nPlease Insert Disk 2")
  9. (set #insert3 "\n\n\n\n\nPlease Insert Disk 3")
  10.  
  11. ; Print message for experts and intermediate
  12.  
  13. (message 
  14.  "\n\n\nThis script installs Blade to your Hard Drive\n\n"
  15.  "All files are stored in the directory you specify.\n"
  16.  "Any other parts of your system like the s: directory or the libs:\n"
  17.  "etcetera are not affected in any way.\n\n"
  18.  "To deinstall later, just delete the Blade directory.\n"
  19. )
  20.  
  21. ; Copy lha to ram
  22.  
  23. (copyfiles
  24.  (prompt #copying)
  25.  (help @copyfiles-help)
  26.  (source "Blade1:c/lha")
  27.  (dest "RAM:T/")
  28. )
  29.  
  30. ; First, ask where to install the thing
  31.  
  32. (set destdir
  33.  (askdir
  34.   (prompt #destmess)
  35.   (help @askdir-help)
  36.   (default "Work:Games/")
  37.  )
  38. )
  39.  
  40. ; Make the final statement mention the right directory
  41.  
  42. (set @default-dest
  43.  (tackon destdir "Blade")
  44. )
  45.  
  46. (set #sound
  47.  (tackon @default-dest "Sound/")
  48. )
  49.  
  50. (set #agadata
  51.  (tackon @default-dest "AGAData/")
  52. )
  53.  
  54. (set #ocsdata
  55.  (tackon @default-dest "OCSData/")
  56. )
  57.  
  58. ; Make the directories and sub directories
  59.  
  60. (makedir @default-dest
  61. )
  62.  
  63. (makedir
  64.  (tackon 
  65.  destdir "Blade/OCSData"
  66.  )
  67. )
  68.  
  69. (makedir
  70.  (tackon 
  71.  destdir "Blade/AGAData"
  72.  )
  73. )
  74.  
  75. (makedir
  76.  (tackon 
  77.  destdir "Blade/Sound"
  78.  )
  79. )
  80.  
  81. (makedir
  82.  (tackon 
  83.  destdir "Blade/Games"
  84.  )
  85. )
  86.  
  87. (complete 10)
  88.  
  89. (copyfiles
  90.  (prompt #copying)
  91.  (help @copyfiles-help)
  92.  (source "Blade1:")
  93.  (dest @default-dest)
  94.  (pattern "Blad#?")
  95.  (files)
  96.  (infos)
  97. )
  98.  
  99. (copyfiles
  100.  (prompt #copying)
  101.  (help @copyfiles-help)
  102.  (source "Blade1:OCSScrnTitleScreen.gfx")
  103.  (dest @default-dest)
  104. )
  105.  
  106. (complete 20)
  107.  
  108. (working #unpacking)
  109. (run
  110.  (cat
  111.  "RAM:T/lha -x -q x Blade1:Data2.lha " #sound
  112.  )
  113. )
  114.  
  115. (complete 40)
  116.  
  117. (askdisk
  118.  (prompt #insert2) 
  119.  (dest "Blade2")
  120.  (help @askdisk-help)
  121. )
  122.  
  123. (complete 50)
  124.  
  125. (copyfiles
  126.  (prompt #copying)
  127.  (help @copyfiles-help)
  128.  (source "Blade2:")
  129.  (dest #ocsdata)
  130.  (pattern "#?.gfx")
  131.  (files)
  132. )
  133.  
  134. (complete 60)
  135.  
  136. (copyfiles
  137.  (prompt #copying)
  138.  (help @copyfiles-help)
  139.  (source "Blade2:MODBlade.mus")
  140.  (dest #ocsdata)
  141. )
  142.  
  143. (complete 70)
  144.  
  145. (working #unpacking)
  146. (run
  147.  (cat
  148.  "RAM:T/lha -x -q x Blade2:Data3.lha " #sound
  149.  )
  150. )
  151.  
  152. (complete 80)
  153.  
  154. (askdisk
  155.  (prompt #insert3) 
  156.  (dest "Blade3")
  157.  (help @askdisk-help)
  158. )
  159.  
  160. (working #unpacking)
  161. (run
  162.  (cat
  163.  "RAM:T/lha -x -q x Blade3:Data1.lha " #agadata
  164.  )
  165. )
  166.  
  167. (complete 90)
  168.  
  169. (message 
  170.  "\n\n\nThe OCS version of Blade needs two assigns to be made.\n\n"
  171.  "If you want to run the AGA version only then these are not\n"
  172.  "neccesary. However all OCS machines need the assign and any\n"
  173.  "AGA owners wanting to boot with original chips and see the\n"
  174.  "OCS version also need the assign."
  175. )
  176.  
  177. (set #choice
  178.  (askchoice
  179.   (prompt "Shall I add the assigns to your user-startup ?")
  180.   (help @askoptions-help)
  181.   (choices "Yes" "No" "Tell me about them and I'll do it myself")
  182.   (default 0)
  183.  )
  184. )
  185.  
  186. (if (= #choice 0)
  187.  (
  188.   (startup "Blade"
  189.    (help @startup-help)
  190.    (prompt "Adding Assign")
  191.    (command
  192.    (cat "Assign >NIL: Blade1: " @default-dest "\n")
  193.    (cat "Assign >NIL: Blade2: " @default-dest "/OCSData")
  194.    )
  195.   )
  196.  )
  197. )
  198.  
  199. (if (= #choice 2)
  200.  (message
  201.  "\n\n\nAssign Information for the OCS Version.\n\n"
  202.  "Assign Blade1: to " @default-dest "\n"
  203.  "Assign Blade2: to " @default-dest "/OCSData/"
  204.  )
  205. )
  206.  
  207. (complete 100)
  208.